home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / INVPAR.N < prev    next >
Text File  |  1995-11-08  |  1KB  |  40 lines
  1. If(0)
  2.  
  3.     INVOICE PARAMETERS IN UNIV FILE
  4.  
  5.     spar^coname     = Company Name
  6.     spar^invfname   = Invoice data filename
  7.     spar^invs1      = Invoice Statement (Summary) text line 1
  8.     spar^invs2      = line 2
  9.     spar^invs3      = line 3
  10.     spar^invs4      = line 4
  11.  
  12. Endif
  13. Define MtceInvParm()
  14. {
  15.     scr = SdCreate(, -1, -1, 16, 72, "Invoice System Parameters");
  16.  
  17.     SdPrompt(scr, 1, 2, "Company Name    :", "c");
  18.     SdString(scr, "",   1,  1, 20, 40, &univ^spar^coname);
  19.     SdPrompt(scr, 3, 2, "Inv Filename    :", "i");
  20.     SdString(scr, "",   1,  3, 20, 40, &univ^spar^invfname);
  21.     SdPrompt(scr, 5, 2, "Inv Summ Line 1 :", "s");
  22.     SdString(scr, "",   1,  5, 20, 40, &univ^spar^invs1);
  23.     SdPrompt(scr, 6, 2, "              2 :", "");
  24.     SdString(scr, "",   1,  6, 20, 40, &univ^spar^invs2);
  25.     SdPrompt(scr, 7, 2, "              3 :", "");
  26.     SdString(scr, "",   1,  7, 20, 40, &univ^spar^invs3);
  27.     SdPrompt(scr, 8, 2, "              4 :", "");
  28.     SdString(scr, "",   1,  8, 20, 40, &univ^spar^invs4);
  29.  
  30.     SdButton(scr, "", 1,    14, 41, 10, "OK",     "", 1);
  31.     SdButton(scr, "", 1,    14, 55, 10, "Cancel", "", 2);
  32.  
  33.     if (SdEdit(scr) == 1) {
  34.         SdUpdate(scr);
  35.         Signal("Restarting system to initialize with new parameters");
  36.     }
  37.     SdDestroy(scr);
  38. }
  39.  
  40.